home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-02_2001_CSW_Side_A.d64 / .welle player1. (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  84 lines
  1. 0 rem    welle:erdball - player         --------------------------------------(NULL)
  2. 1 lw=peek(186):poke808,225:poke775,20:poke788,52:iflw=0thenlw=8
  3. 2 poke53280,0:poke53281,0:ifz=0thengosub600
  4. 10 ifz=0thenz=1:fora=49154to49317:readi:pokea,i:next:print"[147]":load"[194]   01*",lw,1
  5. 11 ifz=1thenz=2:print"[147]":load"[194]   00*",lw,1
  6. 12 ifz=2thenz=3:gosub620:sys49154:load"[194]   02*",lw,1
  7. 13 ifz=3thenz=4:sys49152:goto102
  8. 102 sys828,0:sys828,1
  9. 103 geta$:ifa$=""thengoto103
  10. 104 ifa$=" "andb=0thenb=1:sys828,0:goto103
  11. 105 ifa$=" "andb=1thenb=0:sys828,1:goto103
  12. 106 ifa$="/"thensys828,2:goto103
  13. 107 ifa$=chr$(133)then sys828,0:load"[194]   02*",lw,1
  14. 108 ifa$=chr$(134)then sys828,0:load"[194]   03*",lw,1
  15. 109 ifa$=chr$(135)then sys828,0:load"[194]   05*",lw,1
  16. 110 ifa$=chr$(136)then sys828,0:load"[194]   04*",lw,1
  17. 111 ifa$="q"then goto190
  18. 189 goto103
  19. 190 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4:printchr$(14)
  20. 191 print"[147] [215]ir bedanken uns bei [201]hnen fuer [201]hre  "
  21. 192 print" [193]ufmerksamkeit und wuenschen [201]hnen    "
  22. 193 print" weiterhin viel [197]rfolg !               "
  23. 194 print"                                       "
  24. 195 print" [205]it freundlichen [199]ruessen...          "
  25. 196 print"                                       "
  26. 197 print" welle:erdball                        [144]"
  27. 198 print"[144]":sys828,0:end
  28. 199 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4:print"[147]"
  29. 200 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  30. 220 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  31. 240 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  32. 260 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  33. 280 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  34. 300 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  35. 320 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  36. 340 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  37. 360 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  38. 380 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  39. 400 data254,132,253,96
  40. 600 printchr$(14)
  41. 601 print"[147][155]  [200]allo, hier spricht [215][197][204][204][197]:[197][210][196][194][193][204][204] !  "
  42. 602 print"[155]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  "
  43. 603 print" [199]uten [212]ag, sehr verehrter [205]ensch.     "
  44. 604 print" [215]ir hoffen, [211]ie benutzen gerade einen "
  45. 605 print" [195][207][205][205][207][196][207][210][197] [195]=64 und keinen [197]mulator.   "
  46. 606 print" [198]alls letzteres der [198]all sein sollte, "
  47. 607 print" bitten wir [211]ie, sich einen richtigen  "
  48. 608 print" [210]echner zu beschaffen, wozu [211]ie 3 [212]age"
  49. 609 print" [218]eit haben, bevor [201]hnen dieses        "
  50. 610 print" [208]rogramm [201]hre [198]estplatte formatiert.  "
  51. 611 print" [196]as [193]bspiel-[208]rogramm wird nun in [201]hren"
  52. 612 print" [210]echner transferiert.                 "
  53. 613 print" [194]itte haben [211]ie einen [205]oment [199]eduld. ";
  54. 614 geta$:ifa$=""thenza=za+1:ifza=900thenza=0:return
  55. 615 ifa$<>""thenza=0:return
  56. 616 goto614
  57. 619 return
  58. 620 rem
  59. 621 printchr$(14)
  60. 622 print"[147][155] [201]nformationen zu allen [212]hemen rund um "
  61. 623 print" [215][197][204][204][197]:[197][210][196][194][193][204][204] erhalten [211]ie unter...   "
  62. 624 print" [201]nternetz  : www.welle-e.de           "
  63. 625 print" [210]adio-[195]lub : [215]elle:[197]rdball-[200]oerer [195]lub"
  64. 626 print"              z.[200]. [205]ike [194]aetz          "
  65. 627 print"              [198]riesenstr. 8            "
  66. 628 print"              96515 [211]onneberg          "
  67. 629 print" [215]eiterhin beschaffen [211]ie sich bitte   "
  68. 630 print" eine [195][205][196]-[211][195][208][213] fuer [201]hren [210]echner und  "
  69. 631 print" erreichen [211]ie, wie [205]illionen anderer  "
  70. 632 print" [200]oerer, die [205][197][212][193][204] [196][213][211][212] [200]oechstpunkte !"
  71. 633 print" [201]nformationen zu [205][197][212][193][204] [196][213][211][212]:          "
  72. 634 print" [201]nternetz : www.protovision-online.de";
  73. 635 geta$:ifa$=""thenza=za+1:ifza=900thenza=0:return
  74. 636 ifa$<>""thenza=0:return
  75. 637 goto635
  76. 639 return
  77. 1013 print" hilfsprogramm fuer den soundmonitor"
  78. 1014 print" sys828,0:haelt das lied an (pause an) "
  79. 1015 print" sys828,1:setzt das lied fort(pause aus)
  80. 1016 [153]" sys828,2:startet das lied neu         "
  81. 1017 [153]" sys828,x,y:spielt stepx bis stepy    "
  82. 1018 [153]" z.b. bei kleineren musikparts im      "
  83. 1019 [153]" programm (game over lied)
  84.